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- TITLE Myatt - Get Page Table Information System Service 
-IDENT ‘v04-000' 


i seeeuneeneeeeeenerereeeeeenennenseeennnnnneneeeneeeentseeeceeesteqeeseseess 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
N ome CE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onppokat i" NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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3 FACILITY: 

ABSTRACT: 

ENVIRONMENT: 

AUTHOR: PETER H. LIPMAN » CREATION DATE: 24-APR-78 

; MODIFIED BY: 

: v03-001 wmMC0001 Wayne Cardoza 02-Mar-1983 
: MMGSCRECOM1 has gone away 


SYSGETPTI - Get Page Table Information S$ sme ies 16-S < 4 9:36 VAX/VMS bec cro V04-00 
voe 600 DECLARATYONS : . Y Been] o8d OS ssar0e LenS ERC TST SCEYoTT WARSI 
$3 -SBTTL DECLARATIONS 
4s INCLUDE FILES: 
23 , SMMGDEF ; Offsets from FP into scratch area 
$3 SPRDEF ;PROCESSOR REGISTER DEF INTIONS 
4 SPTEDEF ;PAGE TABLE ENTRY DEFINITIONS 
: 9 SSSDEF sSYSTEM STATUS CODE DEF INTIONS 
00 4 ; EXTERNAL SYMBOLS: 
4: 
3 é 3; MACROS: 
909 38 ; EQUATED SYMBOLS: 
999 60 : OFFSET FROM AP 
00000004 0000 66 ; INADR = 4 Offset to input range 
00000008 4 6 RETADR = 8 :Offset to return range 
90000016 0000 &$ mache = 16 sIeCgOe BOe otentes 
00000014 $609 66 PAGCNT = 20 ‘Minimum number of pages to return 
4444 tas having the specified attributes 
$000 69 : OWN STORAGE: 
0000 0; 
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- Get Page Table Information SEP=1 SYS.SRCISYSGETPTI.MAR; 1 
obs -SBTTL GETPTI = Get Page Table Information 
; FUNCTIONAL DESCRIPTION: 
CALLING SEQUENCE: 
CALLG ARGLIST,@#SYSS$GETPTI 


INPUT PARAMETERS: 


INADR(AP) = Address of 2 long words the | of which specifies 
the starting virtual address, the 2nd specifies the ending 
virtual address (inclusive) of the ages to operate on. 
RETADR(AP) = Address of a 2 jonguerd array into which is returned 
the starting and ending virtual addresses (inclusive) 
of the pages operated on. 
ACMODE(AP) = The access mode (maximized with calling mode) 
against which the page ownership is checked. 
MASK(AP) = Mask of Page Table Information control bits 
t 0 = Pages which are demand zero 
PAGCNT(AP) = Minimum page count. If the next range of pages which 
satisfies one or more of the PTI criteria contains 
fewer pages than PAGCNT specifies, then the range 
does nes satiety the criteria and another range 
Ss sought. 
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IMPLICIT INPUTS: 

NONE 
OUTPUT PARAMETERS: 

RO = System Status Code 
IMPLICIT OUTPUTS: 


OOooooocoeocoo 


OOOoooooooooooooooooo 
SOOCOCOCOSoOoOoOoOoOoOSooooSo 


NONE 
COMPLETION CODES: 
SS$_NORMAL Successful Completion 
SS$_ACCVIO zAccess Violation 
SS$_PAGOWNVIO :Page Owner Violation 
SIDE EFFECTS: 
NONE 
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vor=600 GETPTI = "Get Page Table Infornst ce ory IBTSEp=198e OS:sai0e Levsvencisvscertimar:1 "28° 4 


1 9 3 PRRRARARARAAAALAASEAALALALEALELESE SEES EEE SESE SEES EERE CEASE EEE EEE EEE EE Sa. 
130 ; 
O7FC ! ? ENTRY EXESGETPTI,“M<R2,R3,R4,R5,R6,R7,RB,R9,R10> 
56 o's tae | HH D 1 : MOVAL L“MMGSGETPTIPAG,R6 ;Per-page subroutine 
10 AC OD 134 MASK (AP) ,R8 iType 0 taternetion desired 
59 Sg: 135 MNEG “i, 3No ages found yet 
SA 14 AC 1 ‘ 1 § SUBL #1, PAGCNT (AP) ,R10 [Minimum page count -1 
2 1 1 BGEQ 10 tBranch if syects ied 
A 04 1 1 8 CLRL R1 sDefault to page. 
= 6 § 19 139 108 SUBL aceite LENGTH,SP sReserve scratch a 
10° I¢ 149 pseu Rosas ADRINI tInitialize return oaéress arays & scratch a 
52 4 D 16 MOVQ RG :R2 = Start of range, R3 = end 
FFD8' 30 14 BSBW MAGSCREDEL sCommon Create code 
3° D 144 PUSHL RO sSave status 
FFD3' 30 A 145 BSBW MNO SRE TRANGE sReturn affected address range 
02 23 +H D 148 phos RO,20 Use this bad status rather than CREDEL 
Be 0 : 148 20$: RET 
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-SBTTL GETPTIPAG = Get Page Table Info for Single Page 


p++ 
§ ; FUNCTIONAL DESCRIPTION: 


CALLING SEQUENCE: 
BSBW MMGSGETPTIPAG 


INPUT PARAMETERS: 


i 


nS 
RY 


= Access Mode for page ownership check 

= Virtual Address 

= Current PCB address 

= Process Header Address - Pl or System Space 

= Count - 1 of pages to be processed including this one 
= wat 3 if going forward in the address space 

= =*X if going backwards in the address space 

= Page table information mask, specifying the criteria 
against which the pages are 


R8 
tested. 
R9 count = 1 of pages found so far that satisfy the criteria 
R10 = threshhold page count - 1. Once a run of pages is found 
that meets the criteria, a further check is made to see if 
the range of pages is large enough. 
IPL = ASTDEL 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
+ = Status Code 
R 


Preserved 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
S$S$_NORMAL Successful Completion 
SS$_PAGOWNVIO :Page Owner Violation 
SS$_LENVIO Length Violation 
SS$_ACCVIO zAccess Violation 

SIDE EFFECTS: 
NONE 
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0000 7 -PSECT SMMGCOD 
0 : PARAARAAAALALALALALEALALALELELEASAL ELE SEALE RECESS EEE EE EEE EERE EEE eae 
11 MMGSGETPTIPAG:: 
\§ SAVIPL sSave caller's IPL 
50 D 000 1 PUSHL R ;Save access mode 
FFF8* 30 000 14 BSBW MMGSPTEREF sReference PTE, return SVAPTE 
4 15 zsreturn at IPL=SYNCH 
69 50 9 000 16 BLBC RO,90$ :Branch if Length Violation 
50 Of C 0008 1 MOVZWL #S$$_ACCVIO,RO zIn case this page is not accessable 
. = D Bye 18 MOYL (R3),R1 Fetch the page table entry 
61 1 1 1 BEQL 90$ :Branch if deleted, access violation 
50 oF Be 013 0 MOVL (SP) ,RC Access Mode 
fre . 0016 1 BSBW MMGSPAGETYPE ;Check access, return page type 
58 50 €9 0019 ¢ BLBC Branch i Page Owner Violation 
50. 663 16 00 F QO1C EXTZV #PTESV PGFLVB,#PTESS_PGFLVB,(R3),RO ;PFN, PGFLVB, GPTX 
7E 57 D 0021 4 MOVQ 7 ;Push RB, reserve a scratch location 
6— 58 20 00 EA 4 4 5 208: FFS #0,#32,R8, (SP) ;Convert next bit to its bit number 
09 13 0029 6 BEQL zBranch if no more bits 
00 58 6—€ €5 0028 7 BBCC (SP) ,R8,30$ sShut off the bit 
49 10 O02F 8 30S: BSBB 1 See if this page has desired attribute 
FO 50 «=6E9)=—0031 9 BLBC RO, sBranch if not, check next attribute 
0102 8F BA OO ss 0 40$ POPR #*M<R1,RB> sClean off scratch loc, restore R8 
59 50 co bas 31 ADDL RO,R9 sIf match found, count it 
OF 19 0038 3 BLSS 60§ Branch if haven't found first page 
08 50 €9 003D 3 BLBC RO,50$ zBranch if end of ‘'run’’ 
OA 12 0040 $e BNEQ 60 Branch if not first page of ‘run’ 
EC AD 52 D0 0042 § 5 MOVL R2,B*MMGSL_SVSTARTVA(FP) ;Save address of first page 
046 «171 Bne8 36 BEB 
00 56 SOF ge Ope 7 50$ BBSS #31,R6,60$ zsIndicate end of run 
50 6010 «=03C«(004C 8 60$ MOVZWL #5S$_NORMAL,RO :Set success indication 
56 DS O04F 9 TSTL R6 :Check for end of range or end of ‘‘run" 
4 14 0051 40 BGTR 90$ :Branch if not 
9 »D5 ith 41 TSTL R9 3At end range or end ‘‘run"’ 
1A 3619 «005 g BLSS 80$ sBranch if no “‘run’’ found 
SA 59 Di 0057 24 CMPL R9,R10 itIs the ‘‘run" large enough? 
0B 19 005A 44 BLSS 6=_- 708 :Branch if not, start over 
Bpec +8 ; Found a Large enough range, return it 
rf 005¢ $8 TSTL R6 zAt end of range? — 
14 13 005 4 BEQL 90$ Branch if yes, this VA is in the range 
D4 Bee 29 CLRL R Force end of range 
52 C2 006 1 SUBL R7,R2 zand back off 1 page 
0p 11 0065 3 BRB 90$ 
Bper ee ; This “‘run’ was too small, start looking for another 
59 01 CE 0067 36 70$: -MNEGL #149 :No pages in the “'run’’ 
3% 6UMHC«~ cE O6A 5 EXTZV #0,#30,R6,R6 Restore count - 1 of pages left in range 
0 2 per 5 BNEQ 90$ :Branch if still some to do 
F4 AD D4 1 5 Bos CLRL B“MMGSL_SAVRETADR(FP) ;Force null return range 
02 #BA 74 6 $ POPR #*M<R1> iClean off saved access mode 
7 61 ENBINT sRestore called IPL 
05 4 86 RSB sand return 
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pen 64 ; Subroutine to determine whether the specified page is of the type 
oA 92 : described by the specified type code. 
orh % : INPUTS: 
BA e : RO = PFN, PGFLVB, GPTX, OR SECX WITH SECTION BITS 
BA os R1 = Page type 
7A 71 3 = 0 = transition or demand zero 
O7A ie 3 = 1 = page file 
Bra 73 3 = 2 = global 
7A 74; = 3 = section 
Bara 75 3 = 4 = valid 
O7A 6 3 Re = Virtual address 
OQO7A es RS = System Virtual Address of page table entry 
007A 4 3 R4 = Current PCB address 
OO7A 79 ; RS = Process Header address 
Been + : 4(SP) = Page Table Information Code to CASE on 
007A Be : OUTPUTS: 
007A 84 : RO = 0 if page is not of the specified type 
007A 5; = 1 if page is of the specified type 
th 36 : R2 preserved 
007A 288 100$: CASE 4(SP),<- 
007A 89 INF_DZRO - 3:0 = page is demand zero 
006 59) : P 
0081 32 : Page is not of the specified type 
50 D4 0081 294 INF_NO: CLRL RO 
05 Bose 234 RSB 
oon 3 : See if page is demand zero 
0084 299 INF_DZRO: 
0084 00 CASE R1,<- 
0084 01 20$,- sTransition or Demand Zero 
0084 o¢ INF _NO,- Page file 
0084 0 40$,- :Global 
sia ie save 
EF 11 09 06 BRB INF _NO :Valid 
09 8 ; Transition or demand zero page 
50 od5 009 10 20S: TSTL RO :Zero PFN means demand zero 
eo i 94 11 BNEQ INF _NO Branch if not dzro 
50 Dé 009 1 INCL RO :Return 1 for dzro page 
05 39 17 RSB 
44 12 : Global page, see if it is a demand zero section 
cB 99 i$ dos: BICL3 #*C<PTESM_VALID !- jet valid 
O9A 18 PTESM_TYPT ' PTESM_TYPO '= ;type bits 
9a 31 PTESM”PGFLVB>,- jand section bits 
50 0000'DF40 78800000 8F 9A 320 a@w“MPGSGL_GPTBASECROJ,RO ; from global PTE 
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pe 1 OA4 1 BLSS Branch if valid 
51 50 EA 7 QA6 ¢ ASHL s~PTEBV_1YPO,RO.R1 jTransition? 
1 ae ? BEQL INF _NO Se if yes 
OAD 5 ASSUME <PTESy TYP1-PTESV_TYPO> 
OS $f OAD § XORB #<PT TESA. TYP1 ! PTESM_TYP gS presy Tv". R1 ;Section address? 
- be BNEQ INF _NO :Branch if n 
ee ; : Section page, section bits in RO 
CB 50 11 #2€€1 008 1 60S: BBC #PTESV_DZRO,RO,INF_NO ;Branch if not demand zero section 
50 01 00 Bees ¢ MOVL #1,R0 iIt is a demand zero section 
05 008 RSB 
OOBA 4 
OOBA 5 
QOBA 6 
OOBA 7 - END 
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The perk ing sei Limit was 1909 pages. 
31420 bytes_(62 pages) of virtual memory were used to buffer the intermediate te 

There were 30 pages of symbol gable, — allocated to hold 573 non-local ag local symbols. 
22 source Lines were read in Pass 1 prodys ng 18 object records in Pass 2. 

15 pages of virtual memory were used to define 14 macros. 


ereoenenwe reat eee reece es ece = + 


Macro Library name Macros defined 
$2558DUA28: rsys. “OBJILIB B;1 5 
S255SDUA SYSLIBISTAR Sale: 2 6 

Tevaie (all Libraries) 11 


656 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 


7 
| 
$¢oreres eer ner oceeea nce naeece + 
! ; Macro Library statistics : 
MACRO/LIS=LIS$:SYSGETPTI/OBJ=OBJ$:SYSGETPTI] MSRC$:SYSGETPTI/UPDATE=(ENH$:SYSGETPTI) +EXECMLS/LIB 
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